home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / AMOSList / AMOSLIST / test.amos / test.amosSourceCode
Encoding:
AMOS Source Code  |  1998-05-09  |  574 b   |  16 lines
  1. Extension_24_0080 1
  2. _GET_SCREEN:
  3. A= Extension_24_04AA 
  4. If A=-1 Then B= Extension_24_0150("AMOS V3.00","Select a screen mode, Pal!","Alright ALREADY") : Goto _GET_SCREEN
  5. CHK_COLOURS:
  6. C= Extension_24_0866 
  7. If C<16 Then B= Extension_24_0150("AMOS V3.00","At least 16 colours, Bubba!","Alright ALREADY") : Goto _GET_SCREEN
  8. CHK_WIDTH:
  9.  W= Extension_24_083E 
  10. If W<640 Then B= Extension_24_0150("AMOS V3.00","At least 640 wide, Dipstick!","Alright ALREADY") : Goto _GET_SCREEN
  11. H= Extension_24_0852 
  12.  Extension_24_07AE 1,W,H,C,A
  13. Wait 240
  14.  Extension_24_07E2 1
  15.  Extension_24_0090 
  16. End